home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / pp001.zip / SAMPLE.PRG < prev   
Text File  |  1993-04-22  |  279b  |  17 lines
  1. Program Sample1;
  2. {
  3.   Sample program to show off KISS15 - a simple compiler for Pascal/2
  4. }
  5. var
  6.   a,b : integer;
  7. begin
  8.   WriteLn('Sample program to demonstrate Power Pascal');
  9.   Write('Sample ASCII String: ');
  10.  
  11.   for a := 65 to 90 do
  12.     Emit(A);
  13.  
  14.   WriteLn;
  15. end.
  16.  
  17.